home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / extensions / apsystem / |macros.s < prev    next >
Encoding:
Text File  |  2008-12-07  |  2.2 KB  |  143 lines
  1. BUG    MACRO
  2. bugme:    illegal
  3.     lea    bugme(pc),a0
  4.     move.w    #$4AFC,(a0)
  5.     ENDM
  6.  
  7. Mlea    MACRO
  8.     Dmove    memory_buffers,\2
  9.     add.l    #\1,\2
  10.     ENDM
  11.  
  12. Dlea    MACRO
  13.     move.l    ExtAdr+ExtNb*16(a5),\2
  14.     add.w    #\1-JD,\2
  15.     ENDM
  16.  
  17. Dload    MACRO
  18.     move.l    ExtAdr+ExtNb*16(a5),\1
  19.     ENDM
  20.  
  21. Dmove    MACRO
  22.     movem.l    a3,-(sp)
  23.     move.l    ExtAdr+ExtNb*16(a5),a3
  24.     add.w    #\1-JD,a3
  25.     move.l    (a3),\2
  26.     movem.l    (sp)+,a3
  27.     ENDM
  28.  
  29. Dmove2    MACRO
  30.     movem.l    a3,-(sp)
  31.     move.l    ExtAdr+ExtNb*16(a5),a3
  32.     add.w    #\1-JD,a3
  33.     move.l    (a3),\3
  34.     move.l    ExtAdr+ExtNb*16(a5),a3
  35.     add.w    #\2-JD,a3
  36.     move.l    (a3),\4
  37.     movem.l    (sp)+,a3
  38.     ENDM
  39.  
  40. Dmove3    MACRO
  41.     movem.l    a3,-(sp)
  42.     move.l    ExtAdr+ExtNb*16(a5),a3
  43.     add.w    #\1-JD,a3
  44.     move.l    (a3),\4
  45.     move.l    ExtAdr+ExtNb*16(a5),a3
  46.     add.w    #\2-JD,a3
  47.     move.l    (a3),\5
  48.     move.l    ExtAdr+ExtNb*16(a5),a3
  49.     add.w    #\3-JD,a3
  50.     move.l    (a3),\6
  51.     movem.l    (sp)+,a3
  52.     ENDM
  53.  
  54. Dmove4    MACRO
  55.     movem.l    a3,-(sp)
  56.     move.l    ExtAdr+ExtNb*16(a5),a3
  57.     add.w    #\1-JD,a3
  58.     move.l    (a3),\5
  59.     move.l    ExtAdr+ExtNb*16(a5),a3
  60.     add.w    #\2-JD,a3
  61.     move.l    (a3),\6
  62.     move.l    ExtAdr+ExtNb*16(a5),a3
  63.     add.w    #\3-JD,a3
  64.     move.l    (a3),\7
  65.     move.l    ExtAdr+ExtNb*16(a5),a3
  66.     add.w    #\4-JD,a3
  67.     move.l    (a3),\8
  68.     movem.l    (sp)+,a3
  69.     ENDM
  70.  
  71. Dsave    MACRO
  72.     movem.l    a3,-(sp)
  73.     move.l    ExtAdr+ExtNb*16(a5),a3
  74.     add.w    #\2-JD,a3
  75.     move.l    \1,(a3)
  76.     movem.l    (sp)+,a3
  77.     ENDM
  78.  
  79. Dsave2    MACRO
  80.     movem.l    a3,-(sp)
  81.     move.l    ExtAdr+ExtNb*16(a5),a3
  82.     add.w    #\3-JD,a3
  83.     move.l    \1,(a3)
  84.     move.l    ExtAdr+ExtNb*16(a5),a3
  85.     add.w    #\4-JD,a3
  86.     move.l    \2,(a3)
  87.     movem.l    (sp)+,a3
  88.     ENDM
  89.  
  90. Dsave3    MACRO
  91.     movem.l    a3,-(sp)
  92.     move.l    ExtAdr+ExtNb*16(a5),a3
  93.     add.w    #\4-JD,a3
  94.     move.l    \1,(a3)
  95.     move.l    ExtAdr+ExtNb*16(a5),a3
  96.     add.w    #\5-JD,a3
  97.     move.l    \2,(a3)
  98.     move.l    ExtAdr+ExtNb*16(a5),a3
  99.     add.w    #\6-JD,a3
  100.     move.l    \3,(a3)
  101.     movem.l    (sp)+,a3
  102.     ENDM
  103.  
  104. Dsave4    MACRO
  105.     movem.l    a3,-(sp)
  106.     move.l    ExtAdr+ExtNb*16(a5),a3
  107.     add.w    #\5-JD,a3
  108.     move.l    \1,(a3)
  109.     move.l    ExtAdr+ExtNb*16(a5),a3
  110.     add.w    #\6-JD,a3
  111.     move.l    \2,(a3)
  112.     move.l    ExtAdr+ExtNb*16(a5),a3
  113.     add.w    #\7-JD,a3
  114.     move.l    \3,(a3)
  115.     move.l    ExtAdr+ExtNb*16(a5),a3
  116.     add.w    #\8-JD,a3
  117.     move.l    \4,(a3)
  118.     movem.l    (sp)+,a3
  119.     ENDM
  120.  
  121. Bsave    MACRO
  122.     movem.l    a0,-(sp)
  123.     lea    \2(pc),a0
  124.     move.b    \1,(a0)
  125.     movem.l    (sp)+,a0
  126.     ENDM
  127.  
  128. Wsave    MACRO
  129.     movem.l    a0,-(sp)
  130.     lea    \2(pc),a0
  131.     move.w    \1,(a0)
  132.     movem.l    (sp)+,a0
  133.     ENDM
  134.  
  135. Wsave2    MACRO
  136.     movem.l    a0,-(sp)
  137.     lea    \3(pc),a0
  138.     move.w    \1,(a0)
  139.     lea    \4(pc),a0
  140.     move.w    \2,(a0)
  141.     movem.l    (sp)+,a0
  142.     ENDM
  143.